home *** CD-ROM | disk | FTP | other *** search
/ Lake Powell / Lake Powell.iso / pc / lpkid.dxr / 00214.ls < prev    next >
Encoding:
Text File  |  1998-04-16  |  793 b   |  29 lines
  1. on mouseDown
  2.   set the moveableSprite of sprite the clickOn to 1
  3.   sound stop 1
  4.   puppetSound(member (the memberNum of sprite the clickOn + 200))
  5.   repeat while soundBusy(1)
  6.     nothing()
  7.   end repeat
  8.   updateStage()
  9. end
  10.  
  11. on mouseUp
  12.   if sprite the clickOn intersects sprite(the clickOn - 15) then
  13.     set the visible of sprite the clickOn to 0
  14.     set the puppet of sprite (the clickOn - 15) to 1
  15.     set the memberNum of sprite (the clickOn - 15) to the memberNum of sprite (the clickOn - 15) + 20
  16.     puppetSound("RIGHT")
  17.     repeat while soundBusy(1)
  18.       nothing()
  19.     end repeat
  20.     updateStage()
  21.   else
  22.     puppetSound("Incorrect")
  23.     updateStage()
  24.     set the moveableSprite of sprite the clickOn to 0
  25.   end if
  26.   updateStage()
  27.   set the moveableSprite of sprite the clickOn to 1
  28. end
  29.